home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / CS.LSP < prev    next >
Text File  |  1992-03-14  |  789b  |  30 lines
  1. ;Multiple change style for text
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (defun c:cs()
  7. (setq ss (ssget))
  8. (initget (+ 1 2 4))
  9. (setq s (getstring "Enter new style: "))
  10. (setq counter 0)
  11. (prompt "Changing style...")
  12. (while
  13. (setq e (ssname ss counter))
  14. (setq etype (cdr (assoc 0 (entget e))))
  15. (IF (= etype "TEXT")
  16. (progn
  17. (setq entity (entget e))
  18. (setq old (assoc 7 entity))
  19. (setq new (cons (car old) s))
  20. (setq newentity (subst new old entity))
  21. (entmod newentity)))
  22. (IF (= etype "ATTDEF")
  23. (progn
  24. (setq entity (entget e))
  25. (setq old (assoc 7 entity))
  26. (setq new (cons (car old) s))
  27. (setq newentity (subst new old entity))
  28. (entmod newentity)))
  29. (setq counter (+ counter 1))
  30. (princ)))